Imports Aricie.DNN.Caching
Imports Aricie.DNN.Caching.Analysis.Graphs

Namespace Aricie.DNN.Caching.Analysis
    <Serializable()> _
    Public Class KeysGroup

        Public Sub New()

        End Sub

        Public Sub New(ByVal name As String, ByVal nodes As DistributedCachingGraph)
            Me._name = name
            Me._keys = New List(Of DistributedCachingNode)(nodes.Vertices)
        End Sub

        Private _name As String
        Private _keys As New List(Of DistributedCachingNode)

        Public Property Name() As String
            Get
                Return _name
            End Get
            Set(ByVal value As String)
                _name = value
            End Set
        End Property

        Public Property Keys() As List(Of DistributedCachingNode)
            Get
                Return _keys
            End Get
            Set(ByVal value As List(Of DistributedCachingNode))
                _keys = value
            End Set
        End Property

        Public Overrides Function ToString() As String
            Return Me._name
            'Dim toReturn As New StringBuilder
            'toReturn.Append(Me.Name & vbCrLf & vbCrLf)
            'For Each v As DistributedCachingNode In Me.Keys.Vertices
            '    toReturn.Append(v.KeyStat.Key & vbCrLf)
            'Next
            'Return toReturn.ToString
        End Function

    End Class
End Namespace